Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'rʽ]w
    With TextBox1
        .TextAlign = fmTextAlignLeft			'rm
        .MultiLine = True               			'\
        .Height = .Height * 5           			'jp
        .Width = .Width * 2
        .ZOrder 0                       			'ZOrderw
    End With
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim myStr1 As String
    Dim myStr2 As String
    Dim i      As Long
    With TextBox1
        myStr1 = Replace(.Text, vbCrLf, "")
        Do
            If Len(myStr1) > 10 Then			'wm
                myStr2 = myStr2 & Left(myStr1, 10) & vbCrLf
                myStr1 = Mid(myStr1, 11)
            Else
                myStr2 = myStr2 & myStr1
                Exit Do
            End If
        Loop
        .Value = myStr2
    End With
End Sub
